home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Your Choice 3
/
Your Choice Software Collection 3.iso
/
service
/
foxpro2
/
menu.mpr
< prev
next >
Wrap
Text File
|
1994-01-01
|
16KB
|
403 lines
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ 07/24/91 MENU.MPR 16:03:34 ║
* ║ ║
* ╟─────────────────────────────────────────────────────────╢
* ║ ║
* ║ Systems Group ║
* ║ ║
* ║ Copyright (c) 1991 Fox Software ║
* ║ 134 West South Boundary ║
* ║ Perrsyburg, OH 43551 ║
* ║ ║
* ║ Description: ║
* ║ This program was automatically generated by GENMENU. ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ Setup Code ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
push menu _msysmenu
set sysmenu automatic
public skipvar
skipvar = .f.
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ Menu Definition ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _pxe0yf6ko OF _MSYSMENU PROMPT "\<System" COLOR SCHEME 3 ;
KEY ALT+S, "ALT+S" ;
SKIP FOR skipvar
DEFINE PAD _pxe0yf6m3 OF _MSYSMENU PROMPT "\<Edit" COLOR SCHEME 3 ;
KEY ALT+E, ""
DEFINE PAD _pxe0yf6mq OF _MSYSMENU PROMPT "\<Database" COLOR SCHEME 3 ;
KEY ALT+D, ""
DEFINE PAD _pxe0yf6na OF _MSYSMENU PROMPT "E\<nvironment" COLOR SCHEME 3 ;
KEY ALT+N, "ALT+N"
ON PAD _pxe0yf6ko OF _MSYSMENU ACTIVATE POPUP system
ON PAD _pxe0yf6m3 OF _MSYSMENU ACTIVATE POPUP edit
ON PAD _pxe0yf6mq OF _MSYSMENU ACTIVATE POPUP database
ON PAD _pxe0yf6na OF _MSYSMENU ACTIVATE POPUP enviro
DEFINE POPUP system MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _MST_HELP OF system PROMPT "\<Help..." ;
KEY F1, "F1" ;
SKIP FOR skipvar
DEFINE BAR _MST_FILER OF system PROMPT "\<Filer" ;
SKIP FOR skipvar
DEFINE BAR 3 OF system PROMPT "\-" ;
SKIP FOR skipvar
DEFINE BAR _MST_CALCU OF system PROMPT "\<Calculator" ;
SKIP FOR skipvar
DEFINE BAR _MST_DIARY OF system PROMPT "Calendar/\<Diary" ;
SKIP FOR skipvar
DEFINE BAR _MST_ASCII OF system PROMPT "ASC\<II Chart" ;
SKIP FOR skipvar
DEFINE BAR _MST_PUZZL OF system PROMPT "Pu\<zzle" ;
SKIP FOR skipvar
DEFINE BAR 8 OF system PROMPT "\-" ;
SKIP FOR skipvar
DEFINE BAR 9 OF system PROMPT "\<Quit" ;
KEY CTRL+Q, "^Q" ;
SKIP FOR skipvar
ON SELECTION BAR 9 OF system ;
DO _pxe0yf6x5 ;
IN LOCFILE("MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
DEFINE POPUP edit MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _MED_UNDO OF edit PROMPT "\<Undo" ;
KEY CTRL+U, "^U"
DEFINE BAR _MED_REDO OF edit PROMPT "\<Redo" ;
KEY CTRL+R, "^R"
DEFINE BAR _MED_SP100 OF edit PROMPT "\-"
DEFINE BAR _MED_CUT OF edit PROMPT "Cu\<t" ;
KEY CTRL+X, "^X"
DEFINE BAR _MED_COPY OF edit PROMPT "\<Copy" ;
KEY CTRL+C, "^C"
DEFINE BAR _MED_PASTE OF edit PROMPT "\<Paste" ;
KEY CTRL+V, "^V"
DEFINE BAR _MED_SP200 OF edit PROMPT "\-"
DEFINE BAR _MED_SLCTA OF edit PROMPT "Select \<All" ;
KEY CTRL+A, "^A"
DEFINE POPUP database MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF database PROMPT "\<Browse" ;
KEY CTRL+B, "^B" ;
SKIP FOR skipvar
DEFINE BAR 2 OF database PROMPT "\<Goto..." ;
SKIP FOR skipvar
DEFINE BAR 3 OF database PROMPT "\<Report..." ;
SKIP FOR skipvar
DEFINE BAR 4 OF database PROMPT "\-" ;
SKIP FOR skipvar
DEFINE BAR 5 OF database PROMPT "T\<oggle Delete" ;
KEY CTRL+O, "^O" ;
SKIP FOR skipvar
DEFINE BAR 6 OF database PROMPT "\<Pack" ;
SKIP FOR skipvar
ON SELECTION BAR 1 OF database ;
DO _pxe0yf79b ;
IN LOCFILE("MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
ON SELECTION BAR 2 OF database ;
DO _pxe0yf7ag ;
IN LOCFILE("MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
ON SELECTION BAR 3 OF database ;
DO _pxe0yf7bl ;
IN LOCFILE("MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
ON SELECTION BAR 5 OF database ;
DO _pxe0yf7cu ;
IN LOCFILE("MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
ON SELECTION BAR 6 OF database ;
DO _pxe0yf7dz ;
IN LOCFILE("MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
DEFINE POPUP enviro MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF enviro PROMPT "\<Status Bar" ;
SKIP FOR skipvar
DEFINE BAR 2 OF enviro PROMPT "\<Clock" ;
SKIP FOR skipvar
DEFINE BAR 3 OF enviro PROMPT "St\<icky" ;
SKIP FOR skipvar
ON SELECTION BAR 1 OF enviro ;
DO _pxe0yf7if ;
IN LOCFILE("MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
ON SELECTION BAR 2 OF enviro ;
DO _pxe0yf7jk ;
IN LOCFILE("MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
ON SELECTION BAR 3 OF enviro ;
DO _pxe0yf7ko ;
IN LOCFILE("MENU" ,"MPX;MPR|FXP;PRG" ,"Where is MENU?")
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ Cleanup Code & Procedures ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
for i = 1 to cntbar('enviro')
do case
case prmbar('enviro',i) = 'Status Bar'
set mark of bar i of enviro to set('status') = 'ON'
case prmbar('enviro',i) = 'Clock'
set mark of bar i of enviro to set('clock') = 'ON'
case prmbar('enviro',i) = 'Extended Video'
set mark of bar i of enviro to srow() > 25
case prmbar('enviro',i) = 'Sticky'
set mark of bar i of enviro to set('sticky') = 'ON'
endcase
endfor
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ _PXE0YF6X5 ON SELECTION BAR 9 OF POPUP system ║
* ║ ║
* ║ Procedure Origin: ║
* ║ ║
* ║ From Menu: MENU.MPR, Record: 13 ║
* ║ Called By: ON SELECTION BAR 9 OF POPUP system ║
* ║ Prompt: Quit ║
* ║ Snippet: 1 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
PROCEDURE _pxe0yf6x5
clear read
pop menu _msysmenu
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ _PXE0YF79B ON SELECTION BAR 1 OF POPUP database ║
* ║ ║
* ║ Procedure Origin: ║
* ║ ║
* ║ From Menu: MENU.MPR, Record: 26 ║
* ║ Called By: ON SELECTION BAR 1 OF POPUP database ║
* ║ Prompt: Browse ║
* ║ Snippet: 2 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
PROCEDURE _pxe0yf79b
define window temp from 1,1 to 13,50 ;
float grow zoom close system minimize ;
title "Browse Database" ;
color scheme 10
browse width 7 window temp nowait
scatter memvar
show gets
release window temp
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ _PXE0YF7AG ON SELECTION BAR 2 OF POPUP database ║
* ║ ║
* ║ Procedure Origin: ║
* ║ ║
* ║ From Menu: MENU.MPR, Record: 27 ║
* ║ Called By: ON SELECTION BAR 2 OF POPUP database ║
* ║ Prompt: Goto... ║
* ║ Snippet: 3 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
PROCEDURE _pxe0yf7ag
do goto.spr
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ _PXE0YF7BL ON SELECTION BAR 3 OF POPUP database ║
* ║ ║
* ║ Procedure Origin: ║
* ║ ║
* ║ From Menu: MENU.MPR, Record: 28 ║
* ║ Called By: ON SELECTION BAR 3 OF POPUP database ║
* ║ Prompt: Report... ║
* ║ Snippet: 4 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
PROCEDURE _pxe0yf7bl
private reportok, toprint, tofile, preview, ;
printfile,repoclause
reportok = 'TITLE'
printfile = ''
repoclause = ''
store 0 to reportok,toprint,tofile
store 1 to preview
skipvar = .t.
store recno() TO saverec
store order() to saveorder
do report.spr
if reportok = 2
skipvar = .f.
return
endif
do case
case toprint = 1
if sys(13) = 'READY'
repoclause = 'TO PRINT OFF'
wait window 'Running Report' nowait
else
wait window 'Printer not ready, sending report to the screen.' nowait
repoclause = 'PREVIEW'
endif
case tofile = 1
repoclause = 'TO ' + printfile+' OFF'
wait window 'Running Report' nowait
otherwise
repoclause = 'PREVIEW'
wait window 'Running Report' nowait
endcase
report form (alias()) &repoclause
go saverec
if !empty(saveorder)
set order to (saveorder)
endif
skipvar = .f.
wait window 'Report Complete' nowait
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ _PXE0YF7CU ON SELECTION BAR 5 OF POPUP database ║
* ║ ║
* ║ Procedure Origin: ║
* ║ ║
* ║ From Menu: MENU.MPR, Record: 30 ║
* ║ Called By: ON SELECTION BAR 5 OF POPUP database ║
* ║ Prompt: Toggle Delete ║
* ║ Snippet: 5 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
PROCEDURE _pxe0yf7cu
if deleted()
recall
else
delete
endif
show gets
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ _PXE0YF7DZ ON SELECTION BAR 6 OF POPUP database ║
* ║ ║
* ║ Procedure Origin: ║
* ║ ║
* ║ From Menu: MENU.MPR, Record: 31 ║
* ║ Called By: ON SELECTION BAR 6 OF POPUP database ║
* ║ Prompt: Pack ║
* ║ Snippet: 6 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
PROCEDURE _pxe0yf7dz
wait window 'Removing Old Records' nowait
pack
go top
scatter memvar
show gets
wait window 'Pack Complete' nowait
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ _PXE0YF7IF ON SELECTION BAR 1 OF POPUP enviro ║
* ║ ║
* ║ Procedure Origin: ║
* ║ ║
* ║ From Menu: MENU.MPR, Record: 34 ║
* ║ Called By: ON SELECTION BAR 1 OF POPUP enviro ║
* ║ Prompt: Status Bar ║
* ║ Snippet: 7 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
PROCEDURE _pxe0yf7if
if mrkbar("enviro",bar())
set status off
set mark of bar bar() of enviro to .f.
else
set status on
set mark of bar bar() of enviro to .t.
endif
return
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ _PXE0YF7JK ON SELECTION BAR 2 OF POPUP enviro ║
* ║ ║
* ║ Procedure Origin: ║
* ║ ║
* ║ From Menu: MENU.MPR, Record: 35 ║
* ║ Called By: ON SELECTION BAR 2 OF POPUP enviro ║
* ║ Prompt: Clock ║
* ║ Snippet: 8 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
PROCEDURE _pxe0yf7jk
store mrkbar("enviro",bar()) to markset
if markset
set clock off
set mark of bar bar() of enviro to .f.
else
set clock on
set mark of bar bar() of enviro to .t.
endif
return
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ _PXE0YF7KO ON SELECTION BAR 3 OF POPUP enviro ║
* ║ ║
* ║ Procedure Origin: ║
* ║ ║
* ║ From Menu: MENU.MPR, Record: 36 ║
* ║ Called By: ON SELECTION BAR 3 OF POPUP enviro ║
* ║ Prompt: Sticky ║
* ║ Snippet: 9 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
PROCEDURE _pxe0yf7ko
store mrkbar("enviro",bar()) to markset
if markset
set sticky off
set mark of bar bar() of enviro to .f.
else
set sticky on
set mark of bar bar() of enviro to .t.
endif
return